home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0440 / setupwcl.cbf < prev    next >
Encoding:
Text File  |  1997-04-02  |  3.0 KB  |  90 lines
  1. @ECHO OFF
  2. ECHO -----------------
  3. ECHO SAMPLE WCL SCRIPT
  4. ECHO -----------------
  5.  
  6. REM - THIS IS A SAMPLE (COMPLEX) SCRIPT OR BATCH FILE WHICH ATTEMPTS
  7. REM - TO USE MANY OF THE SCRIPT COMMANDS OF WCL. WHAT IT DOES IS TO
  8. REM - COPY THE WCL FILES TO A DIRECTORY, CREATE A PROGRAM MANAGER ICON,
  9. REM - LOAD ANOTHER COPY OF WCL, AND THEN CLOSE ITSELF DOWN.
  10. REM - THIS SCRIPT WILL ONLY RUN FROM "BIGWCL".
  11. REM - BLANK LINES ARE IGNORED!
  12. REM 
  13. REM - SEMI-COLONS SHOULD NOT APPEAR ON "IF" LINES, UNLESS THEY ARE
  14. REM - FOLLOWED BY A "REM"
  15. REM
  16. REM - THE SENDKEYS COMMAND WILL NOT WORK FOR WIN32 PROGRAMS!!!
  17. REM
  18. REM - THE SCRIPT STARTS!!
  19.  
  20. REM - check whether we are running the BIG version or the SMALL version
  21. IF SMALLVERSION GOTO NOTVALID
  22.  
  23. SAY This is a sample BATCH FILE which uses many of the SCRIPTING features of WCL.
  24. IF CONFIRM "Should I start running the script?" GOTO START
  25. BEEP                         ; REM - make an annoying beep!
  26. SAY Script aborted by user .... quitting. ; REM - show message
  27. RETURN                       ; REM - close this batch file.
  28.  
  29.  
  30. REM - the installation begins here
  31. :START
  32. IF GETS "Install FROM directory $Sd1" CHGSTR @Sd1=$Sd1 $ELSE GOTO END
  33. IF ISDIR "$Sd1 $Src" CHGSTR @Src=$Src $ELSE GOTO ERR2
  34. IF GETS "Enter target Directory $Dest" CHGSTR @Dest=$Dest $ELSE GOTO END
  35. IF ISDIR "$Dest $i" REM $ELSE MD $Dest    
  36. IF ISDIR "$Dest $i" CD $Dest $ELSE GOTO ERR1 
  37.  
  38. REM - if we get here, its safe to copy the WCL files
  39. COPY $Src\*.EXE
  40. COPY $Src\WCL*.HLP
  41. COPY $Src\*.INI
  42. COPY $Src\WCL*.DLL
  43. COPY $Src\*.WXX
  44. If EXIST $Src\*.WCL COPY $Src\*.WCL
  45. If EXIST $Src\*.TXT COPY $Src\*.TXT
  46. If EXIST $Src\*.FAQ COPY $Src\*.FAQ
  47.  
  48. REM - the next line looks for Program Manager, or continues elsewhere
  49. IF ISWIN "Program Manager $pm" CHGSTR @pm=$pm $ELSE GOTO END2
  50.  
  51. REM - the next line sends keys to Progman to create a program icon for WCL
  52. SENDKEYS $pm @FN~WCL{tab}$Dest\BIGWCL.EXE{tab}$Dest~
  53. SENDMESSAGE $pm MIN                       ; REM minimize Program Manager
  54. SETFOCUS                                  ; REM return to WCL window
  55. IF CONFIRM "Use BIGWCL as Windows SHELL?" WINSHELL $Dest\BIGWCL.EXE
  56. $Dest\BIGWCL.EXE                          ; REM try to run the new BIGWCL
  57. SENDMESSAGE $pm SHOW                      ; REM restore Program Manager
  58. WMCLOSE                   ; REM close down this copy of WCL
  59.  
  60.  
  61. REM - error 1 comes next
  62. :ERR1
  63. Say Could not create $Dest. Quitting ...
  64. RETURN
  65.  
  66. REM - error 2 comes next
  67. :ERR2
  68. BEEP
  69. Say The directory "$Sd1" does NOT exist! Quitting ...
  70. RETURN
  71.  
  72. REM - end 1 comes next
  73. :END
  74. Say Script discontinued by user. Quitting ...
  75. RETURN
  76.  
  77. REM - end 2 comes next
  78. :END2
  79. PROGMAN                                 ; REM try to run Program Manager 
  80. DELAY 4                                 ; REM delay for 4 seconds  
  81. IF ISWIN "Program Manager $i" SENDKEYS $i @FN~WCL{tab}$Dest\BIGWCL.EXE{tab}$Dest~
  82. $Dest\BIGWCL.EXE            ; REM try to run the new BIGWCL
  83. WMCLOSE                    ; REM close down this copy of WCL
  84.  
  85.  
  86. :NOTVALID
  87. BEEP
  88. Say SORRY! You should only run this script from BIGWCL.
  89. RETURN
  90.